R operator

One can define his/her own operator

"%i%" <- intersect
intersect(x,y)   # Only two arguments
intersect( intersect(x,y), z )
x %i% y %i% z

other operators

'%d%' <- setdiff
'%.%' <- function (x, y) paste (x, y, sep = '')